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INTRODUCTION 


OVERVIEW 


EXTENDED FIG-FORTH fully implements the standard FORTH; as defined in the Forth Interest 
Group’s (fig) Implementation Guide. It roughly follows the 4502 Rev. 1.1 FORTH sources 

as supplied by the Forth Interest Group (FORTH INTEREST GROUP, P.O, Box 1105, San Carios, 
CA 94070), Many changes were incorporated in adapting the sources ta the ATARI Home 
Computer, but the definitions, operation, and user interfaces were implemented exactly as 
described in the Implementation Guide, Many additional definitions have been added, 

including extended double-precision words such as 2DUP, ZSWAP, D@, and D!. Further, the 
standard FORTH Editor, and a complete Assembler for the 6502 are included, as well as a 

set of ATARI Color/Graphic definitions, ATARI OS definitions, and a set of ATARI 
Floating-point definitions. One new definition, SAVE, (and CSAVE) allows a 

self-booting image of FORTH to be made on a diskette or cassette that will include new 
definitions you add} this feature allows application packages to be produced in volume, 
Definitions not implemented are DLIST, MON, and TASK, The complete set of ATARI 
Screen-Editor capabilities is implemented, making editing and changing FORTH programs 
simple and straightforward, 


These instructions assume you are already familiar with FORTH. However, the manual does 
contain two bibliographies, one for works pertaining to FORTH and a more general one. 
There is also a two-page FORTH HANDY REFERENCE summary in the back, 


If you’re a beginning FORTH programmer, an excellent book to help you get started is 

Starting FORTH, by Leo Brodie, written at FORTH, Inc., and published by Prentice-Hall, 
FORTH Inc.’s "PolyForth" and fig-FORTH have some differences. However, EXTENDED 
fig-FORTH contains some screens that make it compatible with the FORTH used in the book. 
To use the book along with EXTENDED fig-FORTH, type in the command "SS LOAD" to load the 
applicable screens into computer memory, and open the book! 


REQUIRED ACCESSORIES 


Cassette version 


14K RAM 
ATARI 410 Program Recorder 


(Note. FORTH as a computer language isn’t very workable in a cassette-only 
environment, But applications software using FORTH can be put onto a self-booting 
cassette if desired.) 


Diskette version 


14K RAM 
ATARI 310 Disk Drive 


OPTIONAL ACCESSORIES 


-t- 


All ATARI peripherals and accessories 
(Note. Extended fig-FORTH will work with any ATARI printer using two new 
definitions, PON , and POFF which turn the printer on and off. The printer does 
not print the prompts as they occur on the screen, allowing very clean printouts.) 
CONTACTING THE AUTHOR 
Users wishing to contact the author about Extended fig-FORTH may write to him at! 


Z06 Northside Road 
Bellevue, WA 98004 


or call him ati 


206/453-9698 


—— 


GETTING STARTED 


LOADING EXTENDED fig-FORTH INTO COMPUTER MEMORY 


If you have the diskette version of EXTENDED fig-FORTH? 
1, Remove any cartridge from the cartridge slot of your computer. 


2. Place the Extended fig-FORTH diskette in your disk drive and turn on the drive and the 
computer, 


3. The program will load into memory and the prompt "fig-FORTH 1,1" will display when the 
load is complete, Press the RETURN key to display the standard FORTH prompt “ ok", 


4, The Editor, Assembler, Debug, OS, Color/Graphics, and Floating-point packages included 
with Extended fig-FORTH must be loaded in after booting-up the disk. Instructions for 
loading and using each package follow. 


a. After loading in whichever packages you need (Note. You must load in the EDITOR--the 
command is 27 LOAD), you can make anew copy of FORTH that includes your loaded packages 
by inserting a formatted diskette into disk drive 1 and typing "SAVE". A self-booting 

copy will then be written to the new diskette, 


& Now replace the original diskette, type "14 LIST MARK 13 LIST MARK ", and press the 
RETURN key. Two screens of error messages will be listed and saved internally, 


7 Change diskettes once again and type " FLUSH " and the error messages will be written 
to your new diskette. You now have a clean diskette for your program development. 


&,. Store the original FORTH diskette in its folder and put it in a nice safe place. Note 
that you may make a complete copy of your original diskette using the DISKCOPY routine 


described later. This will copy the whole diskette, not just the FORTH and error 
messages. 


If you have the cassette version of EXTENDED fig-FORTH? 
1. Remove any cartridge from the slot of your computer. 


2. Turn off the computer and all other peripheral devices. Insert the cassette into the 
program recorder, 


3+ Hold down the START key on the computer and turn on the computer. The computer should 
beep. 


4. Prass the PLAY button on the program recorder. 


3, Press the RETURN key on the computer and the cassette will load itself in. If the 
program successfully loads, you will see the prompt "“fig-FORTH 1.1. 


4, SEE THE CASSETTE NOTES AT THE END OF THIS SECTION. 


NOTES ON THIS IMPLEMENTATION 


Editor and Assembler options 


You have several options regarding the EDITOR and ASSEMBLER vocabularies! in addition to 
the standard EDITOR, a version of the FORTH Inc. Editor has been included, It may be 
loaded with a 49 LOAD command. Further, the Assembler written by Wm. Ragsdale is 


supplied (use the command 75 LOAD ), which is identical to the assembler used in the 
Installation Guide. 


16K RAM limitation 


If you have only 14K of RAM you will not be able to use some of the Color/Graphics 
higher-level graphics modes without interfering with the screen buffers. 


Cold starts with SYSTEM RESET key 


The SYSTEM-RESET key calls the “COLD" (cold-start) function directly; so any new word 
definitions that have not been SAVEd will be erased. This can be a handy feature while 
debugging: press the SYSTEM RESET key to erase all your old work and leave a clean copy. 
There is a negative side: if your program wanders off into never-never land, and you have 
to press SYSTEM RESET, you’ll lose all your new definitions unless you’ve been editing 
them into new screens. (Using the standard OS screen-editing functions excludes the use 


of the BREAK key for this purpose. The BREAK key is used to inform the system to ignore 
the previous input string.) 


FORTH and DOS incompatability 


There is no compatability between FORTH diskettes and DOS (I or II) diskettes. You may 
read a DOS diskette with a FORTH program, but unless you know exactly what you’re doing, 
writing to a DOS diskette will, in all probability, make the diskette unworkable from a 


DOS point of view. The only DOS function applicable to FORTH is that FORTH expects 
DOS-formatted diskettes. 


7-bit and &-bit output 


The word TYPE outputs only 7 bits to the screen or printer. If you want TYPE to 


output all 8-bits (which includes inverse video characters), you can type in the 
following sequence? 


HEX FF ¢’ TYPE 14 + #C! DECIMAL 


In fact, you can make up a couple of routines if you wish: 


HEX 

$$ MODTYFE 7 TYRE TA ct Gt $ 
$ 8-EITS FF MODTYFE 3; 

$  Y-BITS 7F MODTYFE 3; 
DECIMAL 


Then, to set your system to type out 7 bits, type 7-BITS, and for obits, type #-BITS. 


Further, you can use these routines in any other programs you wish, just as you would 
any other word definition. If youtype VLIST with TYPE set to S-BITS then the last 
character of each word will be in inverse video. The word EMIT always outputs all ¢ 
bits in each byte, TYPE uses EMIT with a mask for 7 or & bits. 


ERROR Screens 


The ERROR screens are 13 and 14 instead of the standard 3 and 4. This is because the 
self-booting FORTH interpreter, if it is present on the diskette you're using; occupies 
screens 0 through 7, with 4 screens available for larger versions. If your working 
diskette doesn’t have a bootable FORTH on it, you may use all screens numbered 0 through 
@9, Disk drive 2 screens are numbered 70 through 179. The second drive may also be 
accessed by the word DR1 , which sets an offset into the drive addresses for 
automatically accessing the second drive. The word DRO accesses the first drive, 


Alternately, the blocks are numbered 0-719 on the first drive, and 720-1439 on the second 
drive, 


Disk Blocks 


This is fig-FORTH, NOT FORTH-7?! This means that disk blocks are 128 bytes long and not 
1K bytes long. Each screen is 3 blocks long, not 1 block long! A later version will be 

made available, someday, using the FORTH-79 standard, but Extended fig-FORTH uses the 
fig~FORTH standard. 


DEFINITIONS 


SAVE -—- 


This word, when executed, saves a self—-booting copy of the RAM-resident FORTH program to 
disk drive 1, after setting up new parameters for COLD and FENCE, On booting up, 

all definitions will be protected by FENCE, and the FORTH vocabulary will be the 

current dictonary. This word uses (SAVE) described later, 


: 


CSAVE -~— 


This word saves a self—booting copy of the RAM-resident FORTH program to the cassette 
recorder. The computer will beep twice, indicating that you are to press both the PLAY 
and the RECORD buttons on the recorder, followed by pressing the RETURN key on the 
computer. 


(SAVE) n--—- 


This word writes n blocks to disk drive 1, starting at sector 0. This word should not 
be used by normal FORTH programs. 


-DISK addr n2 n3 flag --- n4 


This word performs the read/write on a disk, where addr is the starting RAM address, 
n2 is the diskette sector number (0-719), n3 is the drive number (1-4), and flag is 

1 for aread, and O for awrite. On return, n4 will contain a zero if everything 

went all right, or it will contain the DOS error number returned by DOS if an error 
occurred. It is not expected that the normal FORTH program will use this word. The 
usual disk I/O word used is R/W , which is documented in the Implementation Guide. 


ASCII --- c -~> n 

This word places the binary value of character c on the top of the stack, 
BEEP --- 

This word sounds the “beep” tone on the computer’s speaker. 


BOOT --- 


When executed, this word causes a cold-boot of the computer exactly as if the power were 
turned off, 


(FMT) nl --- nz 


This word formats disk drive ni and returns the DOS status byte upon completion in nZ 

+ This word is used by the word FORMAT in the OS definitions. No error checks are made 
and no warnings aregiven by this word, Those functions are performed by the FORMAT word. 
For more information, see the OS section in this manual. 


ok --- 
This word allows the Screen Editor (E3) to handle the standard FORTH prompt properly. The 
interpreter can "eat" the previous "ok" prompt with no other effect, It allows you to 
repeat the same input stream by placing the cursor anywhere in a previous line and 
pressing the RETURN key. 

PON —— 


This word enables the printer. PFLAG is set to 1, and thereafter every character put to 
the screen will be echoed on the printer except the prompts. 


POFF -—- 
This word disables the printer. It sets PFLAG to zero. 

PFLAG --- addr 
This word is the printer-flag. See PON. 

GFLAG -— addr 
This word is the graphics-mode, cursor-control flag. When GFLAG is set to non-zero, 
FORTH will use the alternate cursor-address variables required by the Operating System to 
handle the text-window at the bottom of the screen. This variable is handled 


automatically by the various graphic commands in the Color/Graphics package. 
PROMPT -—- 


This word was added to handle the extended complexities of excluding the prompt from the 
printer when PFLAG is non-zero, Basically it types "ok". 


Words for using the Assembler 


A series of words are defined for the ASSEMBLER: 


Please refer to the ASSEMBLER documentation for their descriptions. 


NOTES 


THE CASSETTE VERSION 


The cassette version of fig-FORTH contains the ASSEMBLER and DEBUG vocabularies already 
loaded. Because no diskette is used, the EDITOR vacabulary is essentially useless. 

However; printouts of the EDITOR, OS, and COLOR/GRAPHICS screens are included so that you 
may type them in if you wish. The cassette version is primarily for use as an 

introduction to the FORTH language, and not as a software development system. 

Nevertheless, the CSAVE feature allows you to develop permanent versions of your FORTH 
programs. See the following section for how to erase old definitions. Note that error 
messages in the cassette version type only a number. Refer to the printout of the error 


message screens for their meaning. The error numbers start sequentially at screen 14, 
line 1 (error 1). 


MODIFYING THE DICTIONARY 


To erase a definition in your FORTH dictionary that is locked in (you get an "in 

protected dictionary" message when you try to FORGET a definition) do the following 

using VLIST, find the name of the first word that you want to keep, call it XXX , and 

type ‘XXX FENCE ! <RETURND. This will set the dictionary protection to your XXX word, 
Then you may type FORGET name <RETURN>, where "name" is the name of the word you 
wish deleted. Note that all words above "name" are deleted. You can actually 

instruct FORTH to forget everything, so be careful. If you make an error in a new 

definition that FORTH rejects for one reason or another, you may find that you cannot 
FORGET the new definition, and, in fact, only VLIST seems able to find it at all! In such 
cases, type the word SMUDGE and you’ll be able to FORGET the word. By the way, you can 


interrupt VLIST anywhere you want by pressing any key except BREAK while it is typing out 
the dictionary. 


"Go FORTH and conquer" 


"May the FORTH be with you" 


ASSEMBLER 


INTRODUCTION 


The ASSEMBLER vocabulary included in Extended fiq-FORTH is a full-featured 6502 
assembler, capable of assembling the range of assembler op-codes. It is similar to W. 
Ragsdale’s assembler used in the fig Installation Manual. To load it, type! 


39 LOAD 


As is usual in any FORTH product, the notation used in this assembler is in Reverse 

Polish Notation (RPN). This brief outline assumes you know assembly language programming - 
very well, particularly in regard to the 6502. The RPN notation will seem very awkward at 
first, but it allows the full power of FORTH to be brought to bear in an assembler-level 
routine. The op-codes are very similar to standard 6502 op-codes, except that every one 
ends with a comma, a FORTH convention for assembler-level codes. Some examples will help 
describe the assembler? 


LDA 123 is written es 123 LDA, 


Similarly, 


STA 3ECO is SECO LDA,» 

LDA 33,X is 33 »X LDA; 

AND (45,X) is 45  X) AND, 

STA (74),Y is 74 DY STA, 

LDA 3374;Y is 3374 +Y LDA, 

LDX #7F is 7F # LDX, or # %7F LDA; 


The current BASE value (radix) of FORTH determines whether the assembler creates hex, 
decimal, or octal values (or any radix, for that matter), = 


Non-standard op-codes are the A-register shifts only, which are expressed as} 
ROL.A,> 
instead of the standard: 
ROL A 
and the op-code for an indirect JMP instruction, which is? 
nom JIMPC), 
instead of 
JMP Crimi) « 
Loop constructs use the words BEGIN, and END, (note the commas) and an alias for the 
latter UNTIL, . The END, is preceeded by a 0= or 0= NOT construct to determine 
loop termination. The termination test actually assembles as a BNE or BEQ instruction, as 


in the following example: 


0 +X \LDY, BEGIN, INY, G= END, NEXT JMF, 


The above routine increments the Y-Register until it is zero and exits to a routine named 
NEXT. It will be assembled as: 


LDY 0,X 
INY 

ENE x-1 
JMF NEXT 


The Branch instructions have been integrated into a generalized IF construct so that 
they may be readily incorporated into an unlabeled branch capability. The syntax is? 


IF sx » eee eee aoe THEN, 


or 
IFux, oe ooe eee ENDIF, 


where xx is the last two letters of the standard 6502 branch instructions (IFEQ, 
IFNE, IFMI, etc.). The test will be made on the Status Register as appropriate to the 
sense of the conditional branch, and if the test is TRUE, the code enclosed between the 
IFxx, and the THEN, or ENDIF, will be executed} otherwise, the enclosed code will be 
skipped. The operation of the construct is almost identical to the IF .. THEN at the 


higher-level FORTH definitions, except that nothing is popped off the stack by the IFxx, 
words. Instead, a Branch instruction is assembled. 


LEGAL EXITS 


There are only a few legal exits from assembly language FORTH routines to the main FORTH 
inner interpreter. These addresses are predefined in the main FORTH dictionary and need 

no further definition by the assembly language itself, These returns use a cccc 

JMP, sequence, as shown in later examples. The legal exits are } 


NEXT 
This is the normal return. It takes no stack action. 
PUT 
This places the A-Register and the first item on the hardware stack on the top of 


the stack. That is,it does a 1 ,X STA, PLA, 0O 4X STA, NEXT JUMP, 
sequence. This action overwrites whatever was previously on the top of the stack. 


PUSH 


This pushes down the stack and does a PUT . This action adds one item to the 
stack. 


POP 


This performs the DROP function. 
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POPTWO 
This performs DROP DROP. 
PUSHOA 


This first pushes the A-Register, followed by a zero. Essentially, it pushes one 


byte, the A-Register, onto the stack, adding a 16-bit word to the stack with the one 
byte in the lower half, 


BINARY 


This word takes two words off the stack and replacea=s them with one word. The best 
example is the add word + . This routine does a DROP followed by a PUT , which 
overwrites the old tap of the stack, 


CALLING THE ASSEMBLER 


The word CODE is used to call the assembler automatically when defining a new assembly 
level routine. The character string following CODE will become a new FORTH word having 
directly executable assembly level code. Two examples follow that do the same 
thing--they multiply the top of the stack by two, using a single left shift across the 

two bytes that are the top of the stack: 


CODE 2x 0 »X ASL, 1 +X ROL, NEXT JMF, 
CODE x2 0 »X LDA, ASL.+A,» PHA, 1 »X LDA, ROL Ay 
PUT JMP, 


The first routine shifts the actual memory locations of the top of the stack. This 
procedure is quite short and very fast. The second routine is the more universal 
methad, in that the arguments are first loaded to the A~Register and later stored, 
Notice that the low order byte is pushed to the hardware stack and the high-order byte is 
left in the A-Register on the return to PUT. The second example shows how words are 
retrieved from the stack and how a return is made. To reach the second word down on the 
stack, you would use 2 ,X LDA, to access the low byte and 3 ,X LDA, to access the 
high byte, and soon. You can increment the stack pointer (push the stack) with a DEX, 
DEX, sequence, and pop the stack with an INX, INX, pair. In fact, the DROP word 
does a simple INX, INX, NEXT JMP, sequence. 


If your routines need the X-Register for any reason, you must save it off someplace. A 
very convenient place called XSAVE is provided. Doa XSAVE STX, later followed by a 
XSAVE LDX, instruction. 


Several other addresses are made available as “hooks” into the FORTH system. These are 
predefined words you use at your own risk (you’d better study up a bit before doing so), 
but some routines, such as in the assembler itself, need these addresses. 


-ti- 


IP 


This is the Intepreter Instruction Pointer, which points to the next word to be 
executed. 


This is the actual execution address of the current word being executed. 


This is a convenient eight-byte (4-word) save area where you may save your words and 
bytes by storing them in N+0 , N+1 , N+2 ... N+7 . You can use the following 

sequence to call an internal routine called SETUP, #2LDA, SETUP JSR, if you 
want to copy the top two stack words into N+0 ... N+3, low bytes first. Use # 3 for 
the top three stack words, and so on. This does not change the stack itself} it only 
extracts copies of however many words you want, 


On entry to your routine, the Y-Register will contain a zero. This fact can be handy for 


Clearing out bytes or registers. For example, you can clear the A-Register with a simple 
TAY, instruction. 


Using the assembler, like in almost any assembly level programming, is playing with fire, 
and you’ll probably get burned from time to time. But, one of the delights of FORTH is 
that you can simply re-boot and try again. Careful examination of your code will 
probably clear up your problems. 


Note. A good descripton of Wm. Ragsdale’s assembler is in Dr. Dobb’s Journal, Vol. 

6, No. 9 (Sept. ’81), This assembler is quite similar on the surface. Internally, they 
are totally different approaches to solving the same problem using FORTH, Reading 
Ragsdale’s code and reading the code for this assembler could be very instructive in the 
area of assembly level FORTH pragramming,. 
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COLOR/GRAPHICS ¢& SOUND) 


INTRODUCTION 


You must have already loaded the ASSEMBLER Vocabulary into your FORTH dictionary before 
the COLOR/GRAPHICS definitions will LOAD properly. Once you have the ASSEMBLER loaded, 
type; 


30 LOA 
and/or 
54 LOAD --= for the SOUND commands 


A small demo program will draw a box and FIL it in Graphics Mode 5 when you enter the 
word FROX . Type? 


37 LOAD 
FREOX 


Type 57 LIST to examine the program itself, 


NOTE. As in BASIC, a color value of zero is used to erase a point. Also, note that in 
Graphics Mode &, there are only two color values: zero or one, 


DEFINITIONS 


The following words have been defined for use with Extended figq-FORTH in programming 
color graphics. Most resemble the commands used in ATARI BASIC. 


SETCOLOR ni n2n3--- 


Color register ni (0..4) is set to color nz (0.,15) at luminance n& (0..7), This 
word is very similar to ATART BASIC’s SETCOLOR command, 


SE. ni nzn3--- 
This is a synonym for SETCOLOR using an the abbreviation used in ATARI BASIC, 
GR, n--- 


This word selects Graphics Mode n where n is defined as in ATARI BASIC’s "GRAPHICS 
n" command, (plus modes %, 10, and 11), 


XGR --- 
This word allows easy exit from Graphics Modes 1-5. It essentially doesa "QGR", 
POS ninz--- 


This word sets the X (ni) and Y (nZ) coordinates for the next point to be plotted. 
It does not plot anything by itself, It is primarily used in the FIL word 
definition, 
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PLOT ni nzn3--- 


This word uses the color value given by ni to plot the point at position X (nz), 
Y (nd), 


DRAW ni nzn3--- 


This word draws a line from the last plotted point, using color value ni to the 
point X {n2), Y (nd). 


FIL n--- 


This word fills the enclosed area just drawn with color value n. The ATARI BASIC 
FILL command is somewhat awkward to use. Careful reading of the ATARI BASIC 
Reference Manual is recommended. 


G" === ceec" 


In Graphics Modes 1 or 2 this word performs the way the word ." does in text made, 
The character string .cccc will be compiled if in compiler mode or typed out if in 
_ interpreter mode. The POS word may be used to position the output. 


SOUND 


The sound command definition is practically identical to ATARI BASIC’s SOUND definition. 
But another word not present in ATARI BASIC lets you alter the "filter" values described 
inthe HARDWARE MANUAL as AUDCTL. The word FILTER! sets this control register. 


SOUND ni nZ nz n4 --- 
This word is used asi chan freq dist vol SOUND. ni is the channel number 
(0-3); n2 is the frequency, as described in the ATARI BASIC Reference Manual} 
n3 is the distartion control (an even number between 0 and 14); and n4 is the 
volume (0-15), 


FILTER! ni --- 


This word stores a value between 0 and 255 into audio control register AUDCTL. The 
default condition is 0 FILTER!. Using this control is not at all straightforward. 
Please refer to the HARDWARE MANUAL if you wish to alter the contents of this 
control register. Or, you can try a few different values and see what happens! 
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DEBUG 


INTRODUCTION 
Load the DEBUG package by typing: 


21 LOAD 


The package includes several very useful features for testing and debugging your FORTH 
programs, 


Each function is described below, in standard FORTH terminology. 


DEFINITIONS 


B? -— 


This word types out the current BASE value (radix) without changing it. It overcomes 
an intrinsic difficulty in typing only BASE? , which always returns the value 
10 no matter what the current radix is, (10 is the right answer, always.) This 


word types out the value Base 10, so that if your current base is hex, B? will 
type out 16. 


CDUMP addr n —- 


This word types out n bytes in character format, starting at addr. For example, to 


display the characters in any disk block, say, sector 34, type 34 BLOCK 128 
CDUMP , 


DUMP addr n --- 


This word types out n bytes in numerical format using the current value of BASE. 
‘You can go from a decimal dump to a hex dump by typing HEX first (and vice-versa), 


DECOMP cecec --- 


This word decompiles the previously entered, colon definition cccc for debugging 
purposes. Use this word cautiously. It is defined for the purpose of decompiling 
colon definitions only, and it can go off to never—never land if you try to 

decompile things like dictionary headers (e.g., FORTH), words terminated by ;CODE 
or words whose definitions do not endin },suchas ABORT . Most non-colon 
definitions will cause the message " Primitive " to display if you try to decompile 
them. Try DECOMP VLIST and DECOMP @ to see the different results. 


FREE --- 


This word types out the number of free bytes of dictionary space left. NOTE that 
this number will vary depending on the current graphics mode. 


Heon--- 


This word outputs the top of the stack in hexadecimal, no matter what the current | 
value of BASE is. It is similar to U. (unsigned type-out). 
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S. 


This word prints out the contents of the stack in unsigned form using the current 
BASE (radix), It doesn‘t change the contents of the stack in any way. This is 
easily the most useful debugging tool. During program development you will probably 


use it very frequently. 


DISKCOPY 


The diskette copying routine supplied with this package is minimal. Load it into memory 
by typing 


36 LOAD 
To invoke the copy routine, type DISKCOPY and you will be prompted for what to do. 
This routine requires 32K of RAM to operate, and uses one drive to copy 90 sectors at a 
time. You may interrupt the copy routine by pushing the SYSTEM RESET key when you: think 


it has copied enough sectors for your application. Or, you may copy single FORTH 
screens, two at a time, by using the LIST and MARK words as described in the introduction. 
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EDITOR 


INTRODUCTION 


The Editor in Extended fig-FORTH is the Screen Editor described in the Forth Interest 
Group’s Installation Manual, complete and unchanged. It isn’t the most sophisticated 
editor around, and it has some quirks that take getting used to. For example, it’s 
difficult to insert spaces into a line of text. But the Editor is specifically designed 

to work with FORTH screens, and it’s handy for that purpose, 


To load the Editor into your system, put the Extended fig-FORTH diskette into drive 1 and 
typet 


27 LOAD 


Ignore any errors regarding duplicate names. To use the Editor; you must first type 
EDITOR to set the context to the Editor vocabulary. To edit a given screen, first type 
n LIST to load the screen into memory. 


One new word has been added to the Editor vocabulary ’ MARK . This word will mark 
every line in the current screen (the one you last used the LIST command with) as having 
been modified, so that when a subsequent FLUSH command is given, the whole screen will 
be written out. It is used primarily to update backup diskettes and to duplicate single 
screens onto other diskettes, 


Whenever you’ve finished an editing session, type the word FLUSH to save your 


work. It is quite important to get into the habit of doing this. If you fail to do 
sa, and subsequently your program bombs out, you can lose the last screen you edited. 


COMMANDS 
WORD FORM DOES 
L L 


This word Lists the current screen. The current screen is changed by n 
LIST which will list out screen n and make it the current screen. 


T nT 
This word Types out line n and puts the cursor at the beginning of 
that line. 

E neE 


This word Erases line n. 


D nD 


This word Deletes line n and moves up all following lines. Save the 


contents of the line in a buffer so that you can use an I command later, 
if desired. 
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P n P eccee 


This word Puts the character string cccc into line n and erases the 
previous contents, if any. Use this command to create new lines. The 
string ccce may be any combination of characters and spaces up to 64 
characters. 


I nit 


This word Inserts the buffer from the previous D command into a line 
created immediately above line n and then moves all following lines 
(including n) dawn one line. The last line is lost. 


F F cece 


This word Finds character string ccec in the current screen starting 
from the current cursor position. 


B B 
This word Backs up the cursor over the word you just found using the F 
command. 

Cc C cece 
This word inserts Character string ccce into the current line at the 
current cursor position. This is the primary character-entry command (see 
also P ), 

M nM. 
This word Moves the cursor n characters forward or backward (backward 
if n is negative). 

S ns 
This word Spreads the current screen at line n, creating a new line 
immediately preceeding line n and moving all following lines down one. 
The last line will be lost. 

x X ccec 


This word eXtracts the character string cccc and shortens up the line. 

This is the primary find-and-delete command. The X command uses the F 
command, which means that the string search will commence from the current 
cursor position. 


CLEAR n CLEAR 
This word CLEARs screen n by completely filling it with blanks. It 


destroys any previous information on that screen. Note that an unused, 
unCLEARed screen will be filled with hearts, which is the ATARI null 
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character. CLEAR will replace the hearts with spaces. 
COPY nam COPY 


This word COPYs screen n onto screen m. It destroys any old 
information on screen m. 


MARK MARK 


This word MARKs the current screen as having been modified. A subsequent 
FLUSH command will cause the entire screen to be written out, Use it to 
copy a single screen to another diskette. 


The best way to learn the Editor is to pick an arbitrary unused screen and use the LIST 
and CLEAR commands to erase it and make it the current screen. Then use the P command 
to put several lines of text into the new screen. Then; try out the various commands, 

one at a time, until they become somewhat familiar. Use the command FLUSH if you want 


to keep the results of your work handy; otherwise, use the command EMPTY-BUFFERS to 
erase all traces of your screen editing. 
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FLOATING—-POINT 


INTRODUCTION 


The floating-point package uses the ATARI floating-point routines in OS ROM, exactly as 
ATARI BASIC does. The routines aren’t very fast, but they are easily accessible and 
fairly complete (there are no transcendental functions except LOG and EXP). Most of the 
floating-point word definitions follow the conventions for double-precision words as far 
as spelling goes, making them very easy to remember. 


Before loading the floating-point package, first make sure that you have already loaded 
the ASSEMBLER. Then put in the master diskette and type: 


60 LOAD 
The floating-point routines will be loaded into the current dictionary. 
All floating-point operations assume three-word variables (fn) with few exceptions. The 
only real variant from standard FORTH nomenclature occurs in the definition of 
floating-point constants and variables (FCONSTANT and FVARIABLE) in that these operations 
expect a floating-point number to be on the stack already. Therefore, the syntax is a bit 
different from single-precision or double-precision constants and variables. 
A single-precision variable would, for example, be written 

1234 VARIABLE MYNUM 
whereas a floating-point variable would be written: 

FLOATING 1234 FVARIABLE MYNUM 
To reduce typing, the word FLOATING has been given the synonym FP 

FF 1234 FVARIABLE MYNUM 


In fact, the word FLOATING or FP should precede any floating number if you wish that 
number to be placed on the stack in floating-point format, 


You may enter floating-point numbers in any standard Fortran "E" format? 


1.234 
00000001 
~7 -B8945E-31 
9999999 


wd 
All the above numbers are legal floating-point numbers as long as they are preceeded by 
FP or FLOATING . The decimal point is optional for integer values. The package is easy to 
use. Here’s an example of a square-root function definition? 


$ FSQRT FLOG FF 2.0 F/ FEXP 3 


The routine expects a floating-point value on the top of the stack (top three words), 
takes the natural log of the value, enters the floating-point value 2.0, divides the 


<2{= 


numbers, and raises the result to the power "e". This is the standard "slow" square-root 
routine used in mathematics. 


DEFINITIONS 


The following definitions conform to the standard FORTH nomenclature, with the addition 
of the symbol fn (e.g., f1, f2), which represents a three-word floating-point number. 


FCONSTANT f1 --- cccc . 
The character string cccc will be a new word, which will place the floating-point 
constant f1 on the stack. fl is normally preceeded by the word FLOATING or FP, 


FVARIABLE f1 -~- ccce 
The character string cece will be a new word, which will return the address of the 
floating-point variable whose initial value will be f1. 1 is normally preceeded by 
the word FLOATING or FP. 

FDUP fi --- f1 fl 
This word duplicates the floating-point number on the top of the stack. 

FDROP fi f2 --- fil 


this word drops the floating-point number on the top of the stack. 


FSWAP fi f2 -—- f2Z fil 


this word reverses the order (swap) of the top two floating-point numbers on the 


stack, 

FOVER fil f2 --- fi f2 f1 
This word copies the second floating-point number and places it on the top of the 
stack. 

FLOATING --—- cceec --> fi 


This word converts the character string cccc to a floating-point number and places 
it on the top of the stack. cccc must be in valid Fortran-style, floating-point 
number representation, such as, 1.23 or .67E9 or -9.876E-21 or 5. There is no 
error check. If the string cccc is invalid, the value of f1 will be undetermined. 

FP <=-tore ===> FE 
This is a synonym for FLOATING, 

F@ addr --- fi 


This word loads the floating-point number whose address is on the top of the stack. 


F! f1 addr -—— 


This word stores the floating-point number at the address on the top of the stack. A 
total of 4 words will be dropped from the stack at the completion of F!., 


F. Fl --- 


This word types out the floating-point number on top of the stack. The output format 
will be identical to ATARI BASIC’s output format. The floating-point number will 
then be dropped from the stack. 

F? addr --- 


This word types out the floating-point number whose address is on top of the stack. 


F+ £1 €2 --—— f3 


This word adds the top two floating-point numbers and places the result on the top 
of the stack. 


F- f1 #2 -— £3 


This word subtracts the floating-point number £2 from the floating-point number fi 
and places the result on the top of the stack. 


Fe f1 f2 -——— £3 


This word multiplies the top two floating-point numbers and places the result on 
the top of the stack, 


PLO 1 f2 = FS 


This word divides the floating-point number f1 by the floating-point number £2 and 
places the result on the top of the stack. 


FLOAT n —— fil 


This word converts the integer on top of the stack is to a floating-point number and 
places the result on the top of the stack. 


FIX fl --- n 


This word fixes the floating-point number on the top of the stack (after rounding) 
and places it on the top of the stack. The range of the integer result must be 
between -32768 and 32767. 


FLOG fi --- f2 


This word replaces the floating-point number on the top of the stack with the 
number’s natural logarithm. 
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FLOG10O fi --- 2 


This word replaces the floating-point number on the top of the stack with the 
number’s log base 10. 


FEXP fi -—- f2 


This word raises the floating-point number on the top of the stack to the power "e" 
and replaces the top of the stack. 


FEXP10 f1-—- f2 


This word raises the floating-point number on the top of the stack to the power 10 
and replaces the top of the stack. 


FO= fl --- flag 


This word drops the floating-point num ber from the stack and tests it. If the 


number is equal to zero, a true flag (1) is placed on the stack} otherwise, a false 
flag (0) is placed on the stack. 


F= fi f2—— flag 


This word drops the top two floating-point numbers from the stack and compares them. 
If they’re equal, a true flag (1) is placed on the stack} otherwise, a false flag 
(0) is placed on the stack. 


F=< 1 £2 --~ flag 


This word drops the top two floating-point numbers from the stack and compares them. 
If f1 is strictly less than £2, then a true (1) flag is placed on the stack} 
otherwise, a false (0) flag is placed on the stack, 


COMMENTS 


This package isn’t meant to be exhaustive, nor is any claim made for its level of 
usefulness. However, if you need floating-point capabilities, the package works quite 
well to extend the range of numbers, particularly in scientific calculations. 
Trignometric functions could be added by a clever programmer. A sufficient set is SIN, 
COS, and ATN. A random-number generator could also be added. In fact, any number of 
features could be added, 


In summary, if you can‘t implement your program specifications using the double-precision 
capability of FORTH, then try this floating-point package, 
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OPERATING SYSTEM 


INTRODUCTION 
This vocabulary package implements the full set of ATARI computer’s OS I/O routines. It 
also adds a FORMAT command, as well as a BOOTS850 command; which downloads the RS-232 1/0 
package into the system so that you may use the asynchronous I/O supplied in ROM in the 
ATARI 850 Interface Module (devices "Ri", "R2", etc.). 
Load the OS definitions package by typing! 
81 LOAD 
Load the BOOT850 package by typing: 
83 LOAD 


Be aware that the ATARI 850 I/O routines take up nearly 2K of RAM, and they are loaded 
directly into the dictionary. j 
DEFINITIONS 


OPEN addr ni nZ2 n3 --- n4 


This word opens the device whose name is at addr on channel ni with AUX1 value 
n2 and AUX2 value n3. Upon return, it places the OS STATUS byte on top of the 
stack, The address of the name may be obtained by storing the character name in 
PAD and then referencing PAD in the OPEN command. EXAMPLE: ASCII S PAD C! 
will set the character "S" into the PAD buffer. Then, PAD 3 12 0 OPEN will 
open "Si" on channel 3, with AUX1 =12 (read-and-write), and AUXZ2=0, 


CLOSE nil --- n2 


This word closes channel ni and returns the status byte at the top of the stack 
(n2). The status byte will always be a 1 (operation complete, no errors), 


PUTC char nl -— n2 
This word outputs the character char on channel ni and returns status byte nz2. 


GETC ni --~- char n2 


This word gets one character from channel ni and returns it and the status byte 
nZ. 


GETREC addr nil nZ --- n3 


This word inputs record to address addr but no more than ni characters from 
channel n2. It returns status byte n3, 


PUTREC addr ni n2 --- n3 


This word outputs ni characters from a buffer whose address is addr to channel 


nz2. It returns status byte n3. 
STATUS nl --- n2 
This word gets the status byte from channel ni. 


DEVSTAT ni --- n2 n3 n4 


This word gets the device status bytes nZ and n3 and the normal status byte n4 
from channel ni. 


SPECIAL ninZn3n4n5n6n7n8 -—— ng? 


This command is the OS "Special" command that does anything any of the others can’t. 
ni thru né are the values of AUX1 thru AUX&, n7 is the command byte (whatever 


your device wants), and n8 is the channel number.. The command returns the status 
byte n?, 


FORMAT --- 
This word formats a diskette. The command is self-prompting. 


BOOT8SO -—- 
This word boots the Atari 850 Interface Module software drivers into the dictionary. 


Screen 83 must be loaded to execute this command. DO NOT TRY TO EXECUTE THIS 
COMMAND TWICE IN A ROW. THE SYSTEM WILL LOCK UP IF YOU DO. 
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FORTH BIBLIOGRAPHY 


In order of technical level 


1, Starting FORTH, Leo Brodie, Prentice-Hall 


The best all-around book for anyone beginning programming..and not just in FORTH. This quite new 
book is everything one could want in a FORTH primer. It begins by assuming that you know absolutely 
nothing about computers at all and leads you to some quite sophisticated programs at the end. Even 
experienced programmers will learn a great deal from this fine worke HOWEVER, the text is not too 
compatible with fig-FORTH. There are many examples that will cause trouble when using fig-FORTH,. 
Nevertheless...buy this book !! 4... and read it !!! 


2, Invitation to FORTH, Harry Katzan, Jr., Petrocelli Books 


This book is for the total novice, and deals primarily with introducing the first-time computer user 
to the fundamental concepts of computer programming, and explores FORTH somewhat casually as it 
moves along. Non-novice users will become impatient with the long elementary discussions and the 


awkward type-face (no descenders), 


3. BYTE Magazine, Vol.o No.é (Aug, ’80) 


The FORTH-dedicated issue which helped bring the concepts of FORTH to thousands of people who 
might not otherwise have ever heard of the language. While the presentations are somewhat erratic in 
their technical content, the whole issue deserves reading to acquire a taste for FORTH. 


4, Dr. Dobb’s Journal, Vol.4 No.? (Sept. ’S1) 


A second “dedicated issue" on the FORTH Language. This issue approaches FORTH from quite a 
philosophical point of view, and is excellent reading for the somewhat advanced programmer who, say; 


already knows several languages. The issue is a wealth of ideas and solid FORTH programs .. the 
Ragsdale Assembler, for one! 


s+ A FORTH PRIMER, W. Richard Stevens, Kitt Peak Nat’l Observatory 


This is a “self-study" guide to FORTH from the place where it all started. The FORTH described 
differs somewhat from fig-FORTH, but the book is quite good. It includes some floating-point words 
which are not too different from the package included with this product, 


& Systems Guide to fig-FORTH, C. H. Ting, Offete Enterprises, 


A camplete, in-depth analysis of every fig-FORTH word used in the entire fig-FORTH vocabulary, If 


you ever wondered just exactly how a word such as ‘INTERPRET’ works «. it’s all here '! For the 
advanced FORTH programmer. 


7. Threaded Interpretive Lanquaqges, R. G, Loeliger, McGraw-Hill 


This is a definitive work for those who want to write their own FORTH Language processor. It uses 
8050 code for its examples, but the routines are so well explained that it would be quite easy to 
translate the code to any other processor. The FORTH isn’t exactly figq-FORTH, but the differences are 
quite minor, and are easily accomodated, 


8. FORTH Dimensions, the journal of the Forth Interest Group (fig) All Vols. 


These bound journals are available from the Forth Interest Group, P.O. Box 1105, San Carlos, CA 
94070, The FORTH Language at its best and its worst. A highly-technical journal for the FORTH addict. 


ALL OF THE ABOVE ARE AVAILABLE FROM: 
Mountain View Press 
P.O. Box 4454, Mountain View, CA 74040 
(415)-941-4103 
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GOOD BOOKS FOR LEARNING TO FROGRAM IN FORTH? 


Using FORTH Starting FORTH 
FORTH Ime. by Leo Bradie 
Hermosa Eeach, CA 90254 FORTH, Ime. 


Hermosa Beach, CA 90254 
Frentice-Hsll, Ime. i991 


REFERENCES FOR DEVELOPING GOOD STRUCTURED FROGRAMMING TECHNIQUES? 


1. D.Le Millis, “Executive systems and software development for mini 
computers," Froec. TEEE, vol+ 61, pp. 1556-1542, November 1973. 


Zs de Koudela, Jr., "The past, present and future of minicomputers," 
Froc. TEEE, vol. 61, pp. 1526-1534, November 1973. 

ae Re Burns and D. Savitt, “Microprogramming and stack architecture 
ease the minicomputer programmer’s burden," Electronics, vol. 46; 
15 February 1973, 

4, bees Knuth, The Aart of Computer Frogramming, vol. I. Reading, 
Mass.? Addison-Wesley, 1968, 

we GeAse Korn, Minicompyuters for Scientists and Engineers. New York? 


McGraw-Hill, 1973, 


THE FOLLOWING ARE AVATLABLE FROM THE FORTH INTEREST GROUP F.OQO. 
Box 1105 SAN CARLOS, CA 94070.? 


Membership in FORTH Interest Group 
and Volume 2 (6 issues! #7 through #12) 
of FORTH DIMENSIONS, 


fig-FORTH Installation Marwal, containing 
the lanquage model of fiaea-FORTH, 2 
complete glossary, memory map, and 
imstallsation imstruction. 


Assembly lenquege source Listing of Tig- 
FORTH for specific CFU’s. The sahove 
Manual i6 required for installation. 
Specify the desired CFU. 


FORTH HANDY REFERENCE 


Stack inputs and outputs are shown: top of stack on right. Operand key: n,ni,... 
This card follows usage of the Forth Interest Group d.dt,.. 
(S.F. Bay Area), usage aligned with the Forth 78 u 
International Standard. addr 
For more info: Forth Interest Group b 
P.O. Box 1105 c 


San Carlos, CA 94070. t 


STACK MANIPULATION 


cup (n—man) Ouplicate top of stack. 

OROP {n- ) Throw away top of stack. 

SWAP (nt n2 ~- n2 nt) Reverse top two stack items. 
OVER (nt n2 — al n2 at) Make copy of second item on top. 
ROT (nt n2 n3 — n2 n3 ni) Rotate third item to top. 

-0UP (n—~n?) Duplicate onty if non-zero. 

>A (n— )} 

R> { -aA) Retrieve item from return stack. 

R ( =n) Copy top of return stack onto stack. 
NUMBER BASES 

DECIMAL (= ) Set decimai base. 

HEX (- ) Set hexadecimal base. 

BASE ( — addr j System variable containing number base. 


ARITHMETIC AND LOGICAL 


+ (nt n2 — sum ) Add. 

D+ (dt d2 — sum ) Add doubie-precision numbers. 

- (nt n2 — diff ) Subtract (n1-n2). 

e (nt n2 — prod ) Muitipty. 

/ (nl n2 — quot ) Divide (n1/n2). 

MOO (a1 n2 — rem ) Modulo (/.e. remainder from division). 

/MOD (nt n2 — rem quot ) Divide, giving remainder and quotient. 

*/MOD (nt n2 n3 — rem quot ) Multiply, then divide (n1*n2/n3), with double-precision intermediate. 

*/ (ni n2 n3 ~ quot ) Like */MOD, but give quotient only. 

MAX (1 n2 — max ) Maximum. 

MIN (al n2 — min ) Minimum. 

ABS (n — absolute ) Absolute vaiue. 

DABS (d —~ absolute ) Absolute vaiue of double-precision number. 

MINUS (n~—-n) Change sign. 

OMINUS (d — -d) Change sign of doubie-precision number. 

ANO (nl n2 — and ) Logical AND (bitwise). 

OR (nl n2 — or) Logicai OR (bitwise). 

XOR (nt n2 — xor ) Logical exciusive OR (bitwise). 

COMPARISON 

< (nt n2—f) True if ni less than n2. 

> (nt n2 —f) True if n1 greater than n2. 

= (at an2 —f) True if top two numbers are equai. 

o< (n-~f) True if top number negative. 

O= (n~f) True if top number zero (i.¢., reverses truth value). 

MEMORY 

@ ( addr ~ n) Repiace word address by contents. : 

! (a addr — ) Store second word at address on top. 

c@ ( addr — b) Fetch one byte only. 

C! (b addr — ) Store one byte onty. 

? ( addr ~ ) Print contents of address. 

+! (nn addr — ) Add second number on stack to contents of address on top. 

CMOVE (from tou — ) Move u bytes in memory. 

FILL (addrub— } Fill u bytes in memory with b, beginning at address. 

ERASE ( addru — ) Fill u bytes in memory with zeroes, beginning at address. 

BLANKS ( addr u — ) Fill u bytes in memory with blanks, beginning at address. 

CONTROL STRUCTURES 

00... LOOP do: ( end+1 start ~ } Set up loop, given index range. 

I (| — index ) Place current index value on stack. 

LEAVE ( - ) Terminate loop at next LOOP or +LOOP. 

DO... +LO0P do: { end+1 start — ) Like DO... LOOP, but adds stack vaiue (instead of atways ‘1') to index. 

+loop: (n — 

IF... (true)... ENOIF If: ( res : if top of stack true (non-zero), execute. (Note: Forth 78 uses iF ... THEN.] 

iF... (true)... ELSE ih (f — ) Same, but if faise, execute ELSE ciause. (Note: Forth 78 uses IF... ELSE... THEN.| 
...(faise). .. ENOIF 

BEGIN... UNTIL unti: (f — ) Loop back to BEGIN unti! true at UNTIL [Note: Forth 78 uses BEGIN ... ENO.| 

BEGIN ... WHILE while: (f — ) Loop while true at WHILE: REPEAT loops unconditionally to BEGIN. 
... REPEAT [Note: Forth 78 uses BEGIN... IF... AGAIN] 
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16-bit signed numbers 


. 32-dit signed numbers 


16-bit unsigned number 
adcress 

8-bit byte 

7-dit ascii character value 
boolean flag 


Move top item to “return stack” for temporary storage (use caution). 


TERMINAL INPUT-OUTPUT 


(n— ) Print number. 
R (1n fieldwidth — ) Print number, right-justified in fietd. 
D. (d- ) Print doubie-precision number. 
O.R (0d fieldwidth — ) Print doubie-precision number, right-justified in fieid. 
CR { - ) Do a carriage return. 
SPACE { -— ) Type one space. 
SPACES (n> ) Type n spaces. 
re ( - ) Print message (terminated by “). 
DUMP (addru — ) Dump u words starting at address. 
TYPE (addru — ) Type string of u characters starting at address. 
COUNT ( addr — addr+1 u ) Change length-byte string to TYPE form. 
?TERMINAL ( ~f) True if terminal break request present. 
KEY { ~-=¢) Read key, put ascii value on stack. 
EMIT ({c- ) Type ascii value from stack. 
EXPECT ( addrn — ) Read n characters (or until carriage return) from input to address. 
WORD (cm ) Read one word from input stream, using given character (usually Dlank) as delimiter. 


INPUT-OUTPUT FORMATTING 


NUMBER (addr ~ d) Convert string at address to double-precision number. 

<# ( 7~- ) Start output string. 

* (d-d) Convert next digit of double-precision number and add character to output string. 
#S (d~00) Convert all significant digits of double-precision number to output string. 
SIGN (nd-~d) Insert sign of n into output string. 

*> (qd — addr u ) Terminate output string (ready for TYPE). 

HOLD (c=— ) insert ascii character into output string. 

DISK HANDLING 

UST ( screen — ) List a disk screen. 

LOAD ( screen ~ ) Load disk screen (Compile or execute). 

BLOCK ( block ~ addr ) Read disk block to memory address. 

B/BUF ( =~”) System constant giving disk block size in bytes. 

BLK (| = addr ) System variable containing current block number. 

SCR ( — addr ) System variabie containing current screen number. 

UPDATE ( - ) Mark tast buffer accessed as updated. 

FLUSH ( - ) Write ail updated buffers to disk. 

EMPTY-8UFFERS ( -~ ) Erase alt butters. 


DEFINING WORDS 


| MRK ( - ) Begin colon definition of xxx. 

: ( - ) End colon definition. 

VARIABLE xxx (n= ) Create a variable named xxx with initial value n; returns address when executed. 
xxx: ( = addr ) 

CONSTANT xxx (nim) Create a constant named xxx with value n; returns value when executed. 
Xxx ( = A) 

CODE xxx ( -~ ) Begin definition of assembly-ianguage primitive operation named xxx. 

CODE { -~ ) Used to create a new defining word, with execution-time “code routine” for this data 

type in assembly. 
<BUILOS. .DOES> does: ( — addr ) Used to create a new defining word, with execution-time routine for this data type in 


higher-level Forth. 


VOCABULARIES 

CONTEXT (| — addr ) Returns address of pointer to context vocabulary (searched first). 

CURRENT ( — addr ) Returns address of pointer to current vocabulary (where new definitions are put). 
FORTH ( = ) Main Forth vocabulary (execution of FORTH-sets CONTEXT vocabulary). 
EDITOR ( ~—- ) Editor vocabulary; sets CONTEXT. 

ASSEMBLER ( — ) Assembter vocabulary, sets CONTEXT. 

DEFINITIONS ( =~ ) Sets CURRENT vocabulary to CONTEXT. 

VOCABULARY xxx ( — ) Create new vocabulary named xxx. 

VLIST ( - ) Print names of ail words in CONTEXT vocabulary. 


MISCELLANEOUS AND SYSTEM 
( 


i 


Begin comment, terminated by right paren on same line; space after (. 


( 
FORGET xxx ( -— ) Forget ail definitions back to and including xxx. 
ABORT ( -— ) Error termination of operation. 
" KXx { — addr ) Find the address of xxx in the dictionary: if used in definition, compile address. 
HERE ( — addr ) Returns address of next unused byte in the dictionary. 
PAD ( — addr ) Returns address of scratch area (usually 68 bytes beyond HERE). 
IN (| — addr ) System variable containing offset into input buffer; used, 6.g., by WORD. 
SP@ (| - addr ) Returns address of top stack item. 
ALLOT (n= ) Leave a gap of n bytes in the dictionary. 
(n- ) Compile a number into the dictionary. 
per ge Forth Interest Group, P.O. Box 1105, San Carlos, CA 94070 
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ry 


Screens 


css 


rf 
Me 
ee 


VENOM DON OF 


+t 14 

( ERROR MESSAGES ) 
Stack empty 
Dictionary full 
Wrong address mode 
Isn’t unique 

Value error 

Disk address errar 
Stack full 

Disk Error! 


10 


SCr ¢# 15 
0 ¢( ERROR MESSAGES ) 
1 Use only in Definitions 
2 Execution only 
3 Conditionals mot paired 
4 Definition mot finished 
3S In protected dictionary 
& Use only when loadine 
7 Off current screen 
8 Declare VOCABULARY 

9 

10 


SCk # 1é 


1S 
SOR dk oi? 
QO ¢ CASSETTE LOAD 9° 
1 
4 ¢€¢ LOAD DEBUG ) 
a 21 LOAD 
& 
7 € LOA ASSEMBLER 3 


3] 
2 


SCR 


a? LOAD 


tk 18 


( FULL LOAD 3} 


C LOAD DEBUG > 
21 LOAD 


( LOAD EDITOR > 
27 LOAD 


( LOAD ASSEMBLER 3} 
39° LOAD 


C20 


C ATARI FORTH DEFS ) 
BASE @ HEX 


FON 1 PFLAG ! 
FOFF 0 FFLAG ! 


( PRT ON ) 
( ERT OFF ) 


oe 44 
we we 


Prd 


BEEF 0CO 0 DO 
08 ODOIF C! 6 0 DO LOOF 
00 GDbOIF C! 6 0 DO LOOF 
LOOF 3 


+ ASCIT BL WORD HERE i+ Ce@ 
STATE @ IF COMPILE CLIT c, 
THEN 3} IMMEDIATE 


koeL 


( DEBUGGER AIDS ~~ DUMP , CDLIMF 3 


GON & Eb Gh 


CNM ONDA USO oS 


St Rt 
hoe 


me 
bh 


pay 
fa 


SCR 


9 


Re 
roo Mo OA 


re 
ui ha 


BASE @ HEX 


+ 
> 


¢ 
+ 
* 
e 


° 
> 


H. BA 


B? 
FREE 


22 

DEBUG 
DEC 

PEXIT 


HEX 


CDUMF 


A) 


23 
¢ STACK 
HEX 
$ DEFTH 
$ Gs. 6 
DEF T 
0 
$ 


ELSE 


BASE ! 


oF em 8 Oe NON OH ONS 


24 
DEF IN 
EA 
VARTA 
CLIT 
QERAN 
BRANT 
35 CF 
CLOOF 
C+L00 
¢ + " } 
FWORD 
LBYTE 
LHORD 
NFO DU 


SE @ HEX OVER U. BASE 


BASE @ DUF DECIMAL . & 
2E5 @ HERE - Us. ." 


GER AIDS -- DUMF , CDU 
TMAL 
?P TERMINAL 
IF LEAVE ENDIF 3 
0 SWAF D.R } 
DUF 8 + SWAF DO I Ce 
LOOF 3 
OVER + SWAF DO CR I 
LDMF ?PEXIT 8 +LOOF C 
DUP 16 + SWAF DO 
I C@ EMIT LOOF }; 


OVER + SWAF DO CR I 
FACE 1 2FE C! CDOMF 0 2 
PEXIT 10 +LOOF CR 3 


DECIMAL --> 


PRINTER 


SF@ 12 +ORTGIN @ SWAF 
FRINTS THE STACK ) 
H ~DUF IF 

DO CR ." TOF+" To, 
F@ Io2 « + @ U. LOOF 
+" Steck Empty" THEN 


TTION TRACER > 
SE @ HEX 
BLE «WORD 
CFA CONSTANT «CLIT 
CH CFA CONSTANT ZERAN 
H CFA CONSTANT ERAN 
A CONSTANT SEMIS 
> CFA CONSTANT FLOOF 
FF) CFA CONSTANT FRFLOOF 
CFA CONSTANT FDOTR 

2+ NFA ID. ; 

FWORD .WORD @ C@ . i 
FWORD .WORD @ @ . 2 
FO OSEMIS = IF FWORD Cr 


' 3 
ASE ' 3 


bytes" CR 


MF) 


4 oR 


2 UR I 


R$ 


o ULR IT 
FE C! 


~ DF f 
ae 


CR 


+ 


«WORD +! 
«WORD +! 
Cr 


+ 
$ 


? 
5d 


+ 
= 


uy 


u 


14 FROMFT QUIT THEN ELE ENA Le 
LS FROMPT QUIT THEN 3 


# 25 
( DEFINITION TRACER ) 


BRNCH PWORD ." to " .WORD @ .WORD @ @ +. 2 .WORD +! 3 


oe 


STG FWORD 22 EMIT .WORD @ DUF COUNT TYFE 22 EMIT 
Ce .WORD @ + i+ .WORD ! 3 


LIT CFA CONSTANT «LIT 


QONG UA EAN OF. 
“ 5 tl 


+ CKIT DUP ZERAN = OVER ERAN = 

10 OR OVER FLOOF = OR OVER FRFLOOF = 
11 OR IF ERNCH ELSE DUF .LIT = 

12 IF 1WORD ELSE DUP .CLIT = 

13 IF LEYTE ELSE DUF FDOTQ = IF STG 
14 ELSE FWORD THEN THEN THEN THEN } 


Leer 
CR # 264 
0 ¢ DEFINITION TRACER ) 
1 * $ 12 + CONSTANT DOCOL 
3? T?PRR CR CR ." Primitive" CR CR 3 
4 $ PDOCOL DUF 2 - @ POCOL - IF 
va TPPR FROMPT QUIT THEN } 
é 
7 } »SETUF CCOMPILES “% ?DOCOL «WORD ! 3 
8 
9 ? NXTL .WORD @ U. 2 SPACES .WORD 
10 @ @ 2 .WORD +! $ 
Li 
12 3 DECOMP .SETUF CR CR BEGIN NXTi NE 
13 CKIT CR AGAIN 3 
14 
1S BASE ! 7S 
i 27 


( &x EDITOR xx ) 


BASE @ HEX 


~ 


THIS EDITOR IS FATTERNED AFTER 
THE EXAMPLE EDITOR IN THE fig 
C "INSTALLATION MANUAL" 8/80 WER 


n~ 


8 ? TEXT HERE C/L i+ BLANKS WORD 


? HERE FAD C/L 1+ CMOVE 3 
iil $ LINE DUF FFFO AND 17 ?ERROR SCR 
Le @ (LINE) DROF 3 

3 

14 ¢ MARK 10 @ DO IT LINE eee 

a DROF LOGF 3 ae 


SCR # 28 


tO ¢ ERITOR > 
VOCABULARY EDITOR IMMEDIATE : 
RE DUP ae Ff DUP OCk ! ." SCR & " DECIMAL . 
"CAL “MOD CYL & ROT BLOCK + CR C/L -TRATLING TYPE CR HERE 
* SPACES 1 2FE C! iC EMIT @ 2FE C! CCOMFILE] EDITOR QUIT : 


6 EDITOR DEFINITIONS 
7 


135] 
gq 


tas] 
mR 
£ 


bth Of 


RRR RRR 
ay -b GJ hp re OO ME 


U3 
2 


WONAU PUNE on 


i 
io 
$$ 


LOCATE R# @ C/L /MOD f 
LEAD #LOCATE LINE SWAF } 
LAG LEAD DUF =R + C/L RY - 


$ ~MOVE LINE C/L CMOVE UPDATE 3 
t 2° 
( EDITOR 2} 
$ H LINE PAD 1+ C/L DUP FAD C! 
CMOVE 3 
$ E LINE C/L BLANKS UFDATE } 
$ S$ DUF 1 - OE DO I LINE TIT i+ 
~MOVE -1 +LO0OF E 3 
$ D DUF H OF BUF ROT 
DO IT i+ LINE XY -MOVE LOOF E 
# 30 
¢ EDITOR ) 
+ MM Ra +! CR SFACE #LEAD TYFE 
17 EMIT #LAG TYFE #hLocaTe 
+ DROF 3 
; T DUF C/L &k R& ! DUF HO M 3 
£4 SCK @ LIST 0 M 3 
LN FAD 1+ SWAF -MQVE 3 
; OF IL TEXT F } 
i oI DUF GS R$ 
+ TOF OQ RF ! 3 
¢ 31 
€ EPITOR ) 
+; CLEAR SCR ! 10 0 DO FORTH TI 


EDITOR & LOOF 3 


7 CORY B/SCR * OFFSET @ + SWAF 


B/SCR XX B/SCR OVER + 
SWAF DO DUF FORTH 1 
BLOCK 2 - ! 1+ UFDATE 
LOOQF DROF FLUSH } 


# 32 
( EDITOR ) 


+ 
? 


163] 


NO OU born om 


is3] 


y) 


+ ILINE #LAG FAD COUNT MATCH Rt 
+13 


FIND BEGIN SFF R# @ < IF TOF 
FAD HERE C/L i+ CMOVE 0 
ERROR ENDIF LLINE UNTIL 


DO OF MO Cf bb Ib) 
+ 


> 

16 
11 ¢ DELETE 2ROFLAG + FORTH R - 
12 #lLAG R MINUS R# +! $LEAD 

3 + SWAF CMOVE R> BLANKS 
14 UFDATE 3 
iS --> 
CR # 33 


( EDITOR ) 
+ oN FIND 0 M 3; 
F 1 TEXT N 3} 


; E FAD C@ MINUS M 3} 


8: X 1 TEXT FIND PAD C@ DELETE 
9 0M 3 

10 

11 ¢ TILL #LEAD + 1 TEXT 1LINE 0= 
12 0 PERROR #LEAD + SWAF - 
13 DELETE 0 M $ 

14 

15 -- 

CR # 34 


( END OF EDTTOR ) 


R 

0 

1 

2.320 1 TEXT FAD COUNT #LAG ROT 
3 OVER MIN =R FORTH R fo +! 
4 Ro- &R DUF HERE R CMOVE 
va HERE @LEAD + Re CMOVE R= 
& CMOVE UFDATE O M } 

> 
8 
9 


FORTH DEFINITIONS DECIMAL 


li LATEST 12 +ORIGIN ! 

12 HERE 28 +0RIGIN ! 

13 HERE 30 +ORIGIN |! 

14 ° EDITOR 6 + 32 +ORIGIN ! 
iS HERE FENCE ! BASE ! ; 


13] 


# 35 


CEN AMaAQMHRe FR 


a 
he 


con) 
ww 


mH Re 
4 


13) 
is) 
p-2 


WONAU DONE OF 


# 36 


¢ DISK COFY ROUTINE 32K RAM > 


BASE @ DECIMAL 
16384 CONSTANT BUFHEAD 


OG VARTABLE BLK 0 VARTABLE ADRS 

$ GET ADRS @ BLK# @ ; 

* RD GET DUF 718 = IF LEAVE THEN 1 R/W 3 

+ WRT GET DUF 718 = IF LEAVE THEN 0O R/W 3 

$ +ELK 1 BLK +! 128 ADRS +! § 

} DSETUF ELK# ! BUFHEAD ADRS ! 3 

? GREY ." HIT ANY KEY " KEY CR DROF 3 

} ROIN CR ." Insert SOURCE disk " GKEY DSETUF 
90 0 DO RD +BLK LOOF ; 


? WRTO CR ." Insert DESTINATION disk " GKEY DSETUF 


14 90 0 DO WRT +BLK LOOF ; 
15 --> 
SCR # 37 

( DISK COFY ROUTINE > 


bh ca ON od pon Oo 


aa 


ié33 
oe} 


ON OC BWI OF 


as 
ow 


i833 
a 


Grpeow 


“Eo. CTR 


{ INSERT SOURCE DISK IN DRIVE #4 
( SIMPLY TYFE "DISKCOFY' ! 


+; MSI CR CR 
+" SINGLE-DRIVE DISK COFY" CR CR 3 


: “ZCOFY 0 pO IT 90 x 
DUF DUF RDIN WRTO 
FO + + LOOP ¢ | 

+ DISKCOPY CR MS21 CR 8 “CORY 3 


BASE ! 4S 
# 38 
#39 


( #* ASSEMBLER x IN FORTH 3 


( ASSEMELER COMFORMS TO THE 
( fig "INSTALLATION GUIDE" WITH 
( THE FOLLOWING EXCEPTIONS: 


( SHIFTS ARE? "“XXX.A" FOR A-REG, 
( SHIFTS. 


S ¢ CONDITIONAL ERANCHES ARE 
° (¢ FATTERNED AFTER THE ERANCH OF- 
10 ¢ CODES: "IFEQ," IS USED IN- 
ti ¢ STEAD OF "“O= IF," FOR BETTER 
12 ( CLARITY. SEE SCREEN 423. 
1s 
14 
is -- 
SCR # 40 
Q ¢ ASSEMBLER > 
1 
2 VOCABULARY ASSEMELER IMMEDIATE 
3 
4 BASE @ HEX 
a 
6 $ COPE ECCOMPILE] ASSEMBLER 
iF CREATE SMUDGE 3} 
8 
9 ASSEMBLER DEFINITIONS 
10 
11 ¢ SB “BUILDS C, DOES? @ C, 3; 
12 { SINGLE BYTE OPERATORS) 
13 
14 
iS -- 
SCR # 41 


( ASSEMBLER ) 


00 SE BRK, 18 SE CLC, DS SE CLD, 
38 SE CLI, B8 SE CLY, CA SE DEX, 
&8 SE DEY, ES SE INX, C&S SE INY, 
EA SE NOF, 48 SE FHA, 08 SE FHF, 
68 SE FLA, 28 SE PLE, 40 SE RTI, 
60 SE RTS, 38 SE SEC, FS S& SED, 
78 SE SEI, 48 SE TAX, BA SE TSX, 
SA SE TXA, 9A SE TXS, 9S SE TYA, 


ae 

li QA SE ASL.A, 24 SE ROL.A, 

12 4A SE LGR. Ay 6A SE ROR. A, 

13 

14° 3 NOT OG ; { REVERSE LOGICAL ») 

iS 3 G= 2d 35 ¢€ FUSH A TRUE )  ~-> 
SCR # 42 


10 


C ASSEMELER ) 


SEY =BUTLDS C, DOES> @ C, + } 


* 


4C SEY JMF, 6C SEY JMF CO); 
20 SEY USK, 


3 PERS ~ PERROR $ 


¢ IF. <BUTLDS C, DOES C@ C, O 
C, HERE ; 
+ THEN, DUP HERE SWAF - DUF 
7F 2 PERS DUFF ~80 < PERS 
SWAP -L + C! 3 IMMEDIATE 
: ENDIF, CCOMPILEI THEN, ¢ IMMEDIATE 


183} 


2 30 IF. IFFL, ¢ BFL 2? 

3 10 IF. IFMI, ¢ BMI > 

4 70 IF. IFVC, ¢ BYC 3) 

© S0 IF. IFVS,. (¢ BYS 3} 

6 BO IF. IFCC, (¢ BCC >) 

7 90 IF. IFCS, ¢ BCS } 

8 FQ IF. IFNE, ¢ BNE ) 

° DO IF. IFER, ¢ BEQ ) 

10 

li ¢{ BEGIN, HERE $3 IMMEDIATE 

12 3 END, IF DO ELSE FO THEN C, 
13 HERE 1+ - DUF 

14 ~80 < PERS C, } IMMEDIATE 
15 $ UNTIL, CCOMFILE] END, }$ IMMEDIATE sant 


SCR # 44 . 
( ASSEMBLER ) 


0 
1 
2 0D VARTABLE MODE ¢ ARS. MODE ) 
3 
4 $ MODE= MODE @ = $ ¢ CK MODE >) 
S$ 2562 DUF 100 ¢ HEX) Us 3 
& } MODEFIX 254< IF -08 MODE +! 
7 THEN } 
8 ( MODE=MODE-8 IF ADR<256 >) 
9 ~ CKMODE MODE= IF MODEFIX 
10 THEN 3 
lio ¢ MO “BUILDS C, DOES: SWAF 
12 0D CKMODE 1D CKMODE SWAF 
13 C@® MODE @ OR C, 2562 IF 
14 C, ELSE , THEN OD MODE ! } 
15 DECIMAL 44 LOAD 7S 
CR # 45 
0 BYRPISKNAMEDAT f 
1 
2 APX-Z0029iQ-FORTH 1.1 Rev. Zidatrick L. Mullarkyil/1i5/82 3 J 
4 
be 
é 
7 
8 
9 
10 
ii 
12 
13 
14 
a 


SCR # 46 
( ASSEMBLER ) 
HEX 


x O01 MODE ! } ( CADDR,XI ) 
+ 09 MODE ! } ( IMMEDIATE >) 
>Y dil MODE ! $3 ( CADDRI,Y ) 
+X 1D MODE ! 3 ( ADDR,X ) 
*Y 19 MODE ! 3 C ADDE,Y ) 


CONG LF BINH O 
oe 46 oe oF 06 


° O06 MO OGRA, 20 MO AND, 46 MO EQR, 
10 60 MO ADC, 80 MO STA; AG MO LDA, 
1i CO MOG CMF, EO MO SEC, 

Le 
13°: BIT, 256" IF 24 C, C, ELSE 
14 20 C, , THEN 3 


83] 
ot 


WON UPN OF 


1g 


S31 
m 
£ 


83) 
7) 


“Ea. Ube Ibe OF 


rf 
G3 


i 47 
( ASSEMELER } 


+ STOREADD C, 256< IF C, ELSE , 
THEN OD MODE ! ; 


: ZFAGE OVER 160 < IF F7 AND 
THEN 3 
: XYMODE MODE @ 19 = MODE @ 1D 
= OR 3 


$ M1 “BUILDS C, DOES: C@ MODE @ 
1D = IF 10 ELSE 0 THEN OR 
ZFAGE STOREADD 3} 


OE Mi ASL, 2E Mi ROL, 4E Mi LSR; 
6E M1 ROR, CE Mi DEC, EE M1 INC, 


# 48 
( ASSEMELER ) 


:; OFCODE C@ ZFAGE XYMODE IF i0 
OR THEN } 
$ MZ <EUILDS C, DOES> OFCODE 
MODE @ 9? = IF 4 - THEN 
STOREADD }; 


AC M2 LDY, AE M2 LDX, 
CC MZ CFY; EC MZ CPX, 


+ M3 “BUILDS C, DOES: OFCODE 
STOREADD } 

SC M3 STY; SE M3 STX, 

#49 


( END OF ASSEMBLER 9) 


FORTH DEFINITIONS 


LATEST OC +ORIGIN ! (¢ NTOP ) 
HERE 10 +ORIGIN ! ( FENCE ) 
HERE 1E +ORIGIN ! ¢ DF ) 
BASE ! 35 

# 50 


( COLOR COMMANDS ) 

BASE @ HEX 

+ SETCOLOR 2 * SWAF 10 * OR SWAF 
0204 € COLFFO 3 + C! ¢ 

$ SE. SETCOLOR ; € ALIAS > 


( REGISTERE-3, COLOR-Z, LUM-1 


( 0-3 o-F 0-7 


Uy 
iw) 


1g 


cs 


# Si 
( GRAFHICS COMMANDS ) 
E456 CONSTANT CIO 

1C VARIABLE MASK 
340 CONSTANT IOCX 

53 VARIABLE SNAME 


CODE GR. 1 # LDA, GFLAG STA, 
XSAVE STX, 0 ,X LDA, 

$ 30 LDX, IOCX OF + ,X STA, 
# 3 LDA, TOCX 2 + ,X STA; 

SNAME FF AND # LDA, TIOQCX 4 + 4X 
STA; SNAME 100 / # LDA, 

TOCX S + 4X STA, MASK LDA, 

ITOCX tA + ,X STA, CIO JSR, 
XSAVE LDX, 0 # LDY, FOF JMP, 


# 52 

( GRAPHICS COMMANDS > 

CODE &GR XSAVE STX, # 30 LDX, 
# C LDA, IOCK 2 + 
+ STAs CIO JSR, 
XSAVE LDX, O # LDA, 
GFLAG STA, NEXT JMF, 

¢ XGR 8GR 0 GR. &GR } 

€ EXIT GRAFHICS MODE ) 


Co # SS 

€ GRAPHICS T/O ) 

CODE CFUT 0X LDA, FHA, 
XSAVE STX, # 30 LDX, 
#E LDA, TOCX 2 + ,X STA, TYA, 
Tocx 8 + ,X STA, TOCX 9 + 4X 
STAy FLA; cro JSR XSAVE LDX, 
FOF UMP,» 

w4 CONSTANT ROWCRS 


25 CONSTANT COLCRS 


~~) 


+; FOS ROWCRS C! COLCKS ! 
$ FLOT FOS CFUT 3 


{ GRAPHICS I/O ) 


>; GTYPE -DUF IF OVER + SWAF 


“ote CI + G2 


Oo 


38 
o 
= 


BRE 
FOWON OU PONE OF 


c 


a8) 
2) 


+e 


ae 


CG") 


DO I cC@ CFUT LOOF ELSE 
DROF ENDIF $ 


‘RO COUNT DUF 1+ R> + =R 
GTYFE 3 
22 STATE @ IF COMPILE (G" 
WORD HERE C@ 1+ ALLOT 
ELSE WORD HERE COUNT GTYFE 


} 


rg 
c 


ENDIF  } IMMEDIATE 


# SS 


¢ DRAW, FIL ) 


2FE CONSTANT 
2FD CONSTANT 


ATACHR 
FILDAT 


CODE GCOM 
* 30 LDX, 
Cro JSR, 


XSAVE STX, 0 
ITOCK 2 + 4X 
XSAVE LDX, 
3 DRAW FOS ATACHR 


C! il 


$ FIL FILDAT C! 12 GCOM 


BASE ! 39 


6 
OUND COMMANDS ) 
BASE @ HEX 


OF on 


D208 CONSTANT AUDCTL 
D200 CONSTANT AUDEBASE 


:; SOUND ¢ CH 
3 DUF ODZ0F C! 232 C! 
SWAP 14 * + ROT DUF 

ROT OVER C! i+ C! } 
¢ FILTER! 
C 


AUDCTL C! 3 
No--- ) 


BASE ! 3S 
# 57 
( GRAFHICS TESTS ) 


; BQX @ 10 10 FLOT 1 So 
1 S50 25 DRAW 1 10 
1 $10 10 DRAW 3 
+; FEOX XGR o GR. EQX 
10 25 FOS 2 FIL } 


+X LDA; 
STAs 


FOF JMF, 


GCOM } 


+ 
? 


FREQ DIST VOL -~-- 


+ AUDBASE + 


10 DRAW 
20 DRAW 


uu} 
2 
7 


eRe 
Ie OOM MIO OR op pp o 


r. 


foal 


ee 
CA 


te 


4 
$ 


7 
7) 


NOnNO UG bDONM Pr OF 


10 


oO 
o 
a 


ra 
SCWMVON Oc bONE oO 


rE 
Wr 


iss) 
iw] 


# SE 
( DOS OBJECT READER > 


BASE @ HEX 


VARIABLE BLOCK# 0 VARIABLE BYTES 0 VARTABLE EYTFTR 
VARIABLE ADDRSS 06 VARIABLE #&YTES 

GETCOUNT 7F + C@ 7F AND BYTES ! 0 BYTFTR ! 3 
FNEXTBLK 7D + DUP C@ 106 * SWAF 1+ C@ + 3FF AND 1 - $} 
LINKELOCK FNEXTELK 

DUF BLOCK# ! DUF O > IF BLOCK THEN ; 

BLK-CK EYTES @ 0= IF BLOCK# @ BLOCK LINKEBLOCK 
GETCOUNT THEN ; 

+ NEXTBEYTE BLK-CK -1 BYTES +! BYTPTR @ 1 BYTFTR +! 
BLOCKS @ BLOCK + C@ ; 

3} NEXTWORD NEXTEYTE NEXTEYTE 100 x + $} 


44s ee OO 


7 


# 39 
( DOS OBJECT READER >) 


+ ADRCALC NEXTWORD DUF ADDRSS ! NEXTWORD SWAF - 1+ #6YTES ! 


Prd 


BLOCKSET DUF EBLOCK# !' BLOCK GETCOUNT ; 


LOADOEJ ELOCKSET WNEXTWORD 1+ IF CR ." Not an Object file" 
CR QUIT THEN 
BEGIN 
ADRCALC 
FEYTES @ 0 DO NEXTEYTE ADDRSS @ C! 1 ADDRSS +! LOOF 
BLOCK# @ BLOCK FNEXTELK 
I+ 0= BYTES @ O= AND END } 


- 


cok 60 


( FLOATING FOINT WORDS ) 

BASE @ HEX 

+ FOROQF DROF DROF DROF 3 

+ FDUF SRR DUP R= DUF ROT 
SWAP KR ROT ROT Ro 3 

CODE FSWAF 

XSAVE STX, # 6 LDY, 

BEGIN, 0 »X LDA, FHA, INX, DEY, 

O= END, XSAVE LDX, € 6 LDY, 

BEGIN, & »X LDA, © +X STA, INX; 

DEY, G= END, XSAVE LDX, # 6 LDY, 

BEGIN, FLA, O08 »X STA, DEX, DEY, 

O= END, XSAVE LDX, NEXT JMF, 


XSAVE 100 * 84 + CONSTANT XSAV 
+ XS XSAV yf PSs 

# 61 

( FLOATING FOINT WORDS ) 

CODE FOVER DEX, DEX, DEX, 


DEX, DEX, DEX, XSAVE STX, 

# 6 LDY, BEGIN, aC yx LDA, 
0 ,X STA, INX, DEY, O= END, 
XSAVE LDX, NEXT JMF; 


XSAVE 100 * A4& + CONSTANT XLD 
> Xb; XLD OO, ; 


++ 


123] 
9 


ts3 
2 
mm NOC BH pe Oo 


“Oo 


1 


a 


CODE AFF XS, D800 JSR, XL,» NEXT JMF, 
CODE FASC XS, DSE& JSR, XL» NEXT JMF, 
CODE IFF XS, DPAA JSR, XL,» NEXT JUMP, —— > 
# 62 

( FLOATING FOINT WORDS ) 

CODE FRI XS, D9D2 JSR, XL, NEXT JMF, 
CODE FADD XS, DA6& JSR, XL, NEXT JUMP, 
CODE FSUE XS, DA6O JSR, XL, NEXT JMPF, 
CODE FMUL XS; DADE JSR, XL, NEXT JMF, 
CODE FDIVY XS, DE2ZS JSR, XL, NEXT JUMF, 
CODE FLG XS, DECD JSR, XL, NEXT JMF, 
CODE FLG10 XS, DED JSR, XL, NEXT JMF, 
CODE FEX XS, DDCO JSR, XL, NEXT JMF, 
CODE FEXIO XS, DDCC JSR, XL, NEXT JMF, 
CODE FFOLY XS, DD40 JSR, AL, NEXT JMF, 
ft 463 

( FLOATING FOINT WORDS } 

D4 CONSTANT FRO 

EQ CONSTANT FRI 

FC CONSTANT FLFETR 

F3 CONSTANT INEUF 

F2 CONSTANT CIXx 

& 64 

( FLOATING FOINT > 

$ F@ SR KR @ R 2+ @ R> 4 + @ 

f-Fl SR OR 4 + POR 2a b ee FF 


3 F.TY. BEGIN INGBUF @ Ce DUF 
7F AND EMIT 1 INEUF +! 
80 > UNTIL } 


$F. FRO F@ FSWAF FRO F! FASC 
F.TY SPACE FRO F! 
1 FP F@ F. } 


+ 


o 
“LOATING FOINT ) 


3 8F FRI F! FRO F! 3 


“Ooo “lo Ul bo 


10 


ies} 
iz 


poner o 


= 
ROM OND 


£3 BS 
i ob 


14 


+o +e 


CO OO 6% 4% TH 44 4H Oe HH 4% 


oe od 


o* 


¢ 
¢ 


° 
o 


F+  <F FADD F> 
F-  <F FSUE Fo 
Fx 9 <¢F FMUL F 
F/ <F FDIV Fe 
FLOAT FRO ! IFF F2 
FIX FS FFI FRO @ } 
FLOG FS FLG F= 3 

FLOGIO FS FLG10 Fe 3 
FEXF FS FEX Fe } 

FEXFL0 FS FEX10 Fe $  --= 


OO ee te ee 


we 


46 
FLOATING FOINT >) 


ASCF 0 CIX ! INBUF ! AFF F> 3} 


FLIT Ro DUF 6&6 + FR FR $ 

FLITERAL STATE @ IF 

COMPILE FLIT HERE F! & ALLOT 

ENDIF 3 F 

FLOATING (¢ FLOAT FOLLOWING CONSTANT 
BL WORD HERE i+ ASCF 

FLITERAL 3} IMMEDIATE 

EX? FLOATING 1.2345 ) 

OR FLOATING -1.67E-13 ) 


FF CCOMPILE FLOATING ; 


IMMEDIATE = 


+ 
¢ 


¢ 
> 


o 


oe oo 44 


BASE ! 


oR 


67 
FLOATING FOINT ) 


FVARIABLE 


“BUILDS HERE F! 6 ALLOT DOES? 3; 


FCONSTANT 
“BUILDS HERE F! §& ALLOT DOES* 
F@ 3 


FO= OR OR O= $ 
Fe F- FO= $ 
Fe F- DROF DROF 80 AND 0 * 3 


~ 
es] 


68 


SCR + 6° 
( FORTH INC.’S EDITOR >) 


( This editor was written by S.H. Daniel, in FORTH DIMENSIONS, 
( Volume IIT, mumber 3. 


Tne only change was to make the cursor a "block" for higher 
( visibility. Fs. Mullarky 9/29/81 
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< # 70 
( FORTH INC.’S EDITOR > 


BASE @ FORTH DEFINITIONS HEX 


Fi 
0 
1 
2 
3 
4 $ TEXT HERE C/L. 1+ BLANKS WORD HERE PAD C/L 1+ CMOVE 3 

5S ? LINE DUF FFFO AND 17 ?ERROR SCR @ (LINE) DROF 3 

& VOCABULARY EDITOR IMMEDIATE 

7 3} WHERE DUF B/SCR / DUF SCR ! ." SCR # “" DECIMAL . SWAF 

8 C/L /MOD C/L * ROT BLOCK + CR CYL TYPE CCOMFPILE] EDITOR QUIT } 
> EDITOR DEFINITIONS 

$#LOCATE Ri @ C/L /MOD 3 

LEAD #LOCATE LINE SWAP }; 

$LAG #LEAD DUF @R + C/L Re - 3 

“MOVE LINE C/L CMOVE UFDATE } F 
BUF-MOVE FAD 1+ C@ IF FAD SWAF C/L i+ CMOVE ELSE DROP THEN $ 
SLINE¢ $LOCATE SWAF DROF 3 ~-> 


Re 
{3 
oe ot tt 26 +O 49 


GG 
Co 
pai 
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71 
FORTH INC. ’S EDITOR ) 


a’ 


FIND-EUF PAD SQ + 3 

INSERT-BUF FIND-BUF SO + 3 

(HOLD) LINE INSERT-BUF 1+ C/L DUF INSERT-BUF C! CMOVE 3; 
(KILL) LINE C/L BLANKS UPDATE 3 

(SFREAD) =LINE# DUF 1 - E DO IT LINE YT i+ ~MOVE ~1 
LOOF CRILL) 3 

X SLINE# DUF CHOLD) F DUP ROT DO IT i+ LINE IT -MOVE 
LOOF ¢KILLD 3 
10 3? DISPLAY-CURSOR CR SPACE #LEAD TYPE A0Q EMIT #LAG TYPE 
11 #LOCATE . DROF ; 
$ T C/L & RE !' O DISPLAY-CURSOR } 

13°3 L SCR @ LIST ; 


ot 4 SF oe be OF ce 


14 ¢_N 1 SCR +! 3 
15 B ~-1 SCR +! 35 a 
SCR # 72 
OQ ¢ FORTH INC.’°S EDITOR 3} 
1 
2 ¢ (TOF) O R¥ ! 3 
3 %$ SEEK-ERROR (TOF? FIND-BUF HERE C/L i+ CMOVE HERE COUNT TYFE 
4." Nome" QUIT ; 
33 (KR) sLINE# INSERT-EUF 1+ SWAF -MOQVE 3} 
6 3: F SE TEXT INSERT-BUF BUF-MOVE (CR) 3 
7 + WERE 10 0 BO I (KILL) LOOF ; 
G ¢ COFY E/YSCR &« OFFSET @ + SWAF B/SCR * EYSCR OVER + SWAP DO BUF 


oy 
2 


VON GO PON oF 


She 


Me 
oVONaaton 


ii 


aed 
hy 


rR 
= 


i 
a 


ies! 
Go 


WONAOUbaNH OF 


FORTH I BLOCK 2 - ! 1+ UPDATE LOOF DROF FLUSH } 
ALINE #LAG FIND-BUF COUNT MATCH R& +! 3 
(SEEK) BEGIN OFF Ra @ = IF SEEK-ERROR THEN 1ILINE UNTIL 3 
(DELETE) =R #LAG + FR #LAG R MINUS R# +! $LEAD + SWAF 
MOVE R> BLANKS UFDATE 
(F) SE TEXT FIND-BUF 
F (F) DISFLAY-CURSOR 


we Tiwe jf 


SUF-MOVE (SEEK) $ 


+ Ot oe (oe ++ of 
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€ FORTH INC.’S EDITOR } 

$ (CE) FIND-BUF C@ (DELETE) 3 

: E (CE) DISFLAY-CURSOR 3 

+ D (FD E 3 

$ TILL #LEAD + SE TEXT FIND-BUF BUF-MOVE LILINE 0O= IF , 
SEEK-ERROR THEN #LEAD + SWAF - (DELETE) DISFLAY-CURSOR $ 
0 VARIABLE COUNTER 

+} BUMP 1 COUNTER 1+ COUNTER @ 38 = IF 0 COUNTER ! CR CR 


F MESSAGE C EMIT THEN 3 

$ S$ C EMIT SE TEXT @ COUNTER ! FIND-BUF BUF-MOQVE SCR @ DUF 
eR DO I SCR ! (TOF) BEGIN ILINE IF BDISFLAY-CURSOR SCR ? BUMF 
THEN SFE R# @ = UNTIL LOOP R= SCR ! 3 

+ I SE TEXT INSERT-EUF BUF-MOVE INSERT-BUF COUNT #LAG ROT 
OVER MIN =R OR R&€ +! Ro - &R DUP HERE R CMOVE HERE #LEAD + Fi: 
CMOVE Ro CMOVE UPDATE 

DISFLAY-CURSOR $} —— 


[#74 


( FORTH INC.’S EDITOR ) 


$ U C/L RE +! (SPREAD) F 3 

$ oR CED IT 5 

> M SCR @ SR R# @ SR SLINE# CHOLD) SWAF SCR ! 1+ C/L x Re 
(SFREAD) (RK) R> C/L + R# Ro SCR ! 3 


DECIMAL 

LATEST 12 +0RIGIN ! 

HERE 29 +QRIGIN ! 

HERE 30 +QRIGIN ! 

’ EPITOR 6 + 32 +ORIGIN ! 

HERE FENCE ! 

FORTH DEFINITIONS BASE ! FORTH 


w+ 
iss] 


t 735 
( KRAGSDALE ASSEMBLER > 


( This essembler was published in DOr. Dobbs Journal Ved ND 
( Sept. ‘81 ) 
( vee ard is the assembler used in the fig "Installation Guide," 


Lo FS 


( RAGSDALE ASSEMBLER } 
VOCABULARY ASSEMBLER IMMEDRTATE ASSEMBLER DEFINITIONS &ASE @ HEX 


ie3] 
7] 
rt 


MO™MOAU SON OZ 


G3 
O 
ONAL bBLINF oF 


“a 


Lh 


Q VARTABLE INDEX -2 ALLOT 0909 , 1505 , 0115 , GOil , Snne , 
IbOD , SO1° , S080 , 0080 , 1404 , 8014 , 8080 , 8080 , 

icoc , soic , 2080 , 
VARIABLE MODE $ .A 0 MODE ! ¢; 3? 

»X 3 MODE ! 3; ¢ Y 4 MODE ! 3} 3 MODE ! 3 $ 3Y 6 MODE ! 
>) F MODE ! 3} $ BOT »X G0 3} ¢$ SEC ,X + ? RFD -X 1o0i 3 

UFMODE IF MODE @ 8 AND O0= IF 8 MODE +! THEN THEN 

MODE @ F AND ~DUF IF @ DO DUF + LOOF THEN OVER 1+ @ AND O= j 
CFU <BUILDS C, DOES= C@ C, MEM ; 

O00 CFU BRK, 18 CFU CLC, D8 CFU CLD, 38 CFU CLI, BE CFU CLY,. 

CA CRU DEX, S& CFU DEY, ES CFU INX;, C8 CFU INY, EA CFU NOF, 

48 CEU FHA, 08 CFU FHF, 68 CFU FLA, 28 CFU PLE, 40 CFU RTI, 

60 CFU RTS, 38 CFU SEC, FS CFU SED, 78 CFU SET, AA CFU TAX, --% 


4 MODE ' + t MEM 2 MOQDE ! 


ro ci 
La 
we we 


oe Re 44 4% oe Pi} 
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( RAGSDALE ASSEMBLER } 

AS CFU TAY, BA CFU TSX, 8A CFU TXA, 9A CFU TXS, 98 CFU TYA, 

: MCF “BUILDS C, , DOES> DUF 1+ @ 80 AND IF 10 MODE +! THEN 
OVER FFOQ AND UPMODE UFMODE IF MEM CR LATEST ID. 3 ERROR THEN 
C@ MODE C@ INDEX + C@ + C, MODE C@ 7 AND IF MODE C@ F AND 7 = 
IF C, ELSE , THEN THEN MEM 3 

1C6E 60 MCF ADC, 1Cé6E 20 MCF AND, ICSE CO MCF CMF, 

1C04E 40 MCF EOR, IC0éE AQ MCF LDA, ICSE 00 MCF ORA, 

1CS6E EO MCF SEC, 1C046C 80 MCF STA, ODOD O01 MCF ASL, 

ococ Cl MCF DEC, OCOC El MCF INC, ODO0D 41 MCF LSR, 

ODOD 21 MCF ROL, ODOD 61 MCF ROR, 0414 81 MCF STX, 

0486 EQ MCF CPX, 0486 CO MCF CFY, 1496 AZ MCF LDX, 

OC8E AQ MCF LDY, O48C 80 MCF STY, 0480 14 MCF JSR, 

8480 40 MCF JUMF, 0494 20 MCF BIT, 

? BEGIN, HERE 1 } IMMEDIATE 


: UNTIL, PEXEC =R 1 PFAIRS R= C, HERE 1+ ~ Cy 3 IMMEDIATE ~- > 
+ 78 

( RAGSDALE ASSEMBLER > 

i; IF, C, HERE 0 C, 2 3 IMMEDIATE 

$ THEN, PEXEC 2 ?FAITRS HERE OVER C@ IF SWAF ! ELSE OVER 1+ 

- GWAP C! THEN 3 IMMEDIATE 

; ELSE, 2 ?PFPAIRS HERE i+ 1 JMF, SWAF HERE OVER 1+ - SWAF C! 

2 3 IMMEDIATE 

s NOT 20 + § 

$0 CONSTANT CS DO CONSTANT O= 10 CONSTANT O0# 90 CONSTANT 25 


; END-CODE CURRENT @ CONTEXT ! ?EXEC ?CSF SMUDGE $ IMMEDTATE 
FORTH DEFINITIONS DECIMAL 

+ CODE EXEC CREATE CCOMPILE ASSEMBLER ASSEMBLER MEM '!CSF 3 
IMMEDIATE 

‘ ASSEMBLER CFA ’ ;CODE GS + ! LATEST 12 +ORIGIN ! 

HERE 28 +O0RIGIN ! HERE 30 +ORIGIN ! HERE FENCE ! 

’ ASSEMBLER & + 32 +ORIGIN ! BASE ! FORTH 3S 
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tf 


oO 
m” 


DON AL ARONR Oo 


1333 
? 


. GO 
( TEST SCREEN ) 
123 4346 XXX 789 123 


+ Si 

( bOS T/O ) 

BASE @ HEX 

340 VARTABLE IOCE 0 VARTABLE I0.X 0 VARTABLE TO.CH 
$ roce 10 * 70 MIN DUF TO.X C! 340 + ITOCE ! 3} 

$ IO <BUILDS , DOES* @ ITOCE @ + ;$ 

) 2 8002 ICCOM 3 “IOs ICSTA 4 “IO> ICKAL 8 «TO> ICELL 
A <IO> ICAXi & “TOs ICAX2 C «IOs ICAX3 D «<TO> ICAX4 
E 2rO> ICAXS F “<LO> ICAXS 


CODE XCIO XSAVE STX, TO.X LDX, IQ.CH LDA, E454 JSR, 
XSAVE LDX, IO.CH STA, TYA, FUSHOA JMF, 


$; OFEN TOCC ICAXZ C! ICAXI C! ICBAL ! 03 TCCOM C! XCIO 3 
$ CLOSE FTocC oC ICCOM C! xCIO ; 

$ PUTC occ TO.CH C! OB TCCOM C! XCIO 3; 

$ GETC Toce 7 ICCOM C! XCTO IO.CH C@ SWAF ; —- is 

# 82 

( DOS T/0 ) 

{ GETREC roce S&S ICCOM C! TCBLL !' ICBAL ! xXCIO 3 

$ PUTREC roce 9 ITCCOM C! ICELL ! ICKBAL ! XCIO 3; 

+ STATUS TOCC ICSTA C@ ; 

: DEVSTAT TOCC OD ICCOM C! XCIO =R 2EA @ Z2EC @ Re 3 

+ SFECIAL LOCC ICCOM C! ICAXé C! ICAXS C! ICAX4 C! ICAXS C! 


ICAXZ C! ITCAX1 C! Xcro 3; 

$ FORMAT CR CR ." Input Drive # " KEY DUF EMIT 30 - 

1 MAX 4 MIN 

CR CR 4" When you hit RETURN I’m eoing to" CR .'" FORMAT Drive " 
DUF . CR CR ." Hit any other key to abort " BEEF KEY 

SE = TIF (FMT)? 1 = CR CR ." Format “" IF .' OK" ELSE ." ERROR" 
THEN ELSE DROF THEN CR CR 3 


) BASE ! 35 


NO CO bO NM PO 


ta 
&Y 
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€ ATARI~-850 DOWNLOAD > 

BASE @ HEX : 

CODE bO-STO 

XSAVE STX, OG # LDA, E489 JSR, 

ASAVE LOX, NEXT JMF, 

SET~DCE 30 300 C! 4 301 C! SF S02 C! 40 B03 C! So0 304 ! 
3 306 C! @ 307 C! C€ 308 C! @ 309 ! 0 30B Ct! 3 


oe 


CODE RELOCATE XSAVE STX, 306 JSR, HERE © + JSR, XSAVE LOX, 


ié3) 


NEXT JMF, OC JMPC},; 


$ BOOTESO HERE 2E7 ! SET-DCE DO-SIO 
S00 300 0C CMNOVE DO~SIO RELOCATE 
2E7 @ HERE ~ ALLOT HERE FENCE ! + 


BASE ! 3S 
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23 


to 8S 
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( “STARTING FORTH" CHANGES ) 
BASE @ DECIMAL 

3 VARIABLE 0 VARIABLE 3 

$ “S SF $; SOQ 18 +ORIGIN @ $ 

eae aS ; 

3 I’ Re Ro R ROT ROT =R SR 5 

$ J Re R> Ro R RE | SR GR SR RA @ fF 

$ PAGE 125 EMIT ; 

$ 2YVARTABLE VARTABLE 0 , 3} ¢ EXIT Re ¢ $ H DF 3 


2CONSTANT “BUILDS HERE D! 4 ALLOT DOES* De }; 

CREATE VARIABLE -2 ALLOT 3; ¢ 2@ D@ 3} ¢ 2! Bt 3 

SIN IN 3 $ /LOOF CCOMFILET LOOF $ IMMEDIATE 

C’ CCOMFILED “ 3 ¢ WITHIN =R 1- OVER <= SWAP Ro <= AND 
NUMPATCH DROF SS OVER = SWAF 44 48 WITHIN OR NOT } 
NUMFIX ¢ NUMFATCH CFA ’ NUMEER S2 + ! 3} NUMFIX 


who 84 


{ "STARTING FORTH" CHANGES ) 


s ABORT" STATE @ IF COMFILE OBRANCH HERE 0 , 
COMPILE ¢.') ASCII " WORD HERE C@ 1+ 


ALLOT COMPILE QUIT HERE OVER - SWAF ! 
ELSE IF ASCIT " WORD HERE COUNT TYFE 
QUIT THEN THEN $ IMMEDIATE 


BASE | $5 
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( DDISK > 

BASE @ HEX 

0 VARTABLE CELOCK 0 VARTABLE BUFF 


2-2-3 % 2e DUP + $3 % 24 2/7 3 + NOT O= 


<e 


ie] 
2 
7 


a ell ee 
YrROVMOAN GRU SONeE SC 


$ «HEAD 7D EMIT ." Enter BLOCK mumber in hext " QUERY 
BL WORD HERE NUMEER DROF CR ¢ 

5; GELK .HEAD CR CR CELOCK ! } 

RELOCK CELOCK @ BLOCK DUF BUFF ! 3 


++ Ot 


cH OO fd € € #> TYPE SPACE 35 

BLINE § 0 DO DUF I + C@ .H LOOF 3; 

C.ON 1 2FE C! } ¢ C.OFF 0 2FE C! } 

DCHAR C.ON 8 0 DO DUF I + C@ DUP SE = IF DROF EL THEN 
SMIT LGOF C.OFF 3 


[T] ++ ++ oo 40 


$ FQUIT DROF 7D EMIT ." ALL DONE" CR DECIMAL FROMFT QUIT 


# 88 

( DDISK ) 
HEX ? D.LINE DLINE SPACE DCHAR } 

2 D.BLOCK 3 54 C!.2 55 ' ." BLOCK " CBLOCK @ . CR RBLOCK 
80 0 DO I .H DUF I + D.LINE DROF CR 8 +LOOF DROF ; 

+ PELK CBLOCK +! D.BLOCK 3 

+ +BLOCK 1 PELK 3 

2 =BLOCK -1 PELK 3 


: FICK SF@ SWAF 2 x + 2+ @ $f 
t CKEY KEY DUF 1B = IF FQUIT ELSE DUF 4E = IF +B&LOCK ELSE 
DUF 42 = IF -BLOCK ELSE DUF 98 = IF GBLK D- BLOCK 
THEN THEN THEN THEN 3; 
3 DDISK HEX GELK D.BLOCK BEGIN CKEY DROF AGAIN } 


eo 


Limited Warranty on Media and Hardware Accessories. Atari, inc. (“Atari”) warrants to the original 
consumer purchaser that the media on which APX Computer Programs are recorded and any 
hardware accessories sold by APX shall be free from defects in material or workmanship for a 
period of thirty (30) days from the date of purchase. If you discover such a defect within the 30-day 
period, call APX fora return authorization number, and then return the product to APX along with 
proof of purchase date. We will repair or replace the product at our option. If you ship an APX 
product for in-warranty service, we suggest you package it securely with the problem indicated in 
writing and insure it for value, as Atari assumes no liability for loss or damage incurred during 
shipment. 


This warranty shall not apply if the APX product has been damaged by accident, unreasonable 
use, use with any non-ATARI products, unauthorized service, or by other causes unrelated to 
defective materials or workmanship. 


Any applicable implied warranties, including warranties of merchantability and fitness for a 
particular purpose, are also limited to thirty (30) days from the date of purchase. Consequential or 
incidental damages resulting from a breach of any applicable express or implied warranties are 
hereby excluded. 


The provisions of the foregoing warranty are valid in the U.S. only. This warranty gives you 
specific legal rights and you may also have other rights which vary from state to state. Some states 
do not allow limitations on how long an implied warranty lasts, and/or do not allow the exclusion of 
incidental or consequential damages, so the above limitations and exclusions may not apply to 
you. 


Disclaimer of Warranty on APX Computer Programs. Most APX Computer Programs have been 
written by people not employed by Atari. The programs we select for APX offer something of value 
that we want to make available to ATARI Home Computer owners. !n order to economically offer 
these programs to the widest number of people, APX Computer Programs are not rigorously 
tested by Atari and are solid on an “as is” basis without warranty of any kind. Any statements 
concerning the capabilities or utility of APX Computer Programs are not to be construed as 
express or implied warranties. 


Atari shall have no liability or responsibility to the original consumer purchaser or any other 
person or entity with respect to any claim, loss, liability, or damage caused or alleged to be caused 
directly or indirectly by APX Computer Programs. This disclaimer includes, but is not limited to, 
any interruption of services, loss of business or anticipatory profits, and/or incidental or 
consequential damages resulting from the purchase, use, or operation of APX Computer 
Programs. 


Some states do not allow the limitation or exclusion of implied warranties or of incidental or 
consequential damages, so the above limitations or exciusions concerning APX Computer 
Programs may not apply to you. 


For the complete list of current 
APX programs, ask your ATARI retailer 
for the APX Product Catalog 


ATARI” 
Yy ~ PROGRAM 


EXCHANGE 
P.O. Box 3705 
Santa Clara, CA 95055 


We're interested in your experiences with APX programs 
and documentation, both favorable and unfavorabie. 
Many of our authors are eager to improve their programs 
if they know what you want. And, of course, we want to 
know about any bugs that slipped by us, so that the 
author can fix them. We also want to know whether our 


1. Name and APX number of program. 


Review Form 


instructions are meeting your needs. You are our best 
source for suggesting improvements! Please help us by 
taking a moment to fill in this review sheet. Fold the sheet 
in thirds and seai it so that the address on the bottom of 
the back becomes the envelope front. Thank you for 
helping us! 


2. If you have problems using the program, please describe them here. 


3. What do you especially like about this program? 


4. What do you think the program's weaknesses are? 


5. How can the catalog description be more accurate or comprehensive? 


6. Onascale of 1 to 10. 1 being “poor” and 10 being “excellent”. piease rate the following aspects of this program: 


Easy to use 


User-oriented (e.g.. menus. prompts. clear language) 


Enjoyabie 

Self-instructive 

Useful (non-game programs) 
Imaginative graphics and sound 


7. Describe any technical errors you found in the user instructions (please give page numbers). 


‘ 


8. What did you especiaily like about the user instructions? 


9. What revisions or additions would improve these instructions? 


10. On a scale of 1 to 10, 1 representing “poor” and 10 representing “excellent”, how would you rate the user 
instructions and why? 


11. Other comments about the program or user instructions: s 


From 


STAMP 


ATARI Program Exchange 
P.O. Box 3705 : 
Santa Clara. CA 95055 


{seal here} ae 


